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MODULE AEDSINIT (¢ 


<> 
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RAIN = AED_INIT 
BEGIN 
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te TRANSFERRED. 
ie THE co tte IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:: a op Al BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


lee 
1 
: FACILITY: Miscellaneous utilities 
i ABSTRACT: 


This module contains the initialization routines for the ACL editor. 
It also contains some miscellaneous support routine. 


i ENVIRONMENT: 
VAX/VMS operating system, user mode utilities. 


WN SO CONOVUE WN “OC OOVNOUFE wn 


ssssssesseseoss 


NOUS WIN —O Oo 


v03-018 LMP0283 L. Mark Pilant, 25-Jul-1984 12:38 
Make sure the default object type is a file. 
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i AUTHOR: L. Mark Pilant CREATION DATE: 12-Nov-1982 9:50 
5 i MODIFIED BY: 
3} v03-019 ges 34 Mark Pilant, 9-Aug-1984 9:14 
§ e the correct journal file spec when editine the ACL of a 
5 ete 
$2 
3? 
39 
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Change code to use SCHANGE wae instead of the ACP to do 
ACL twiddling. 


v03-009 LMP0172 L. Mark Pilant, 28-Nov-1983 12:11 


DSINIT 1-52 =| 743: AX-11 Bliss-32 V4.0-742 P A 
vo4=000 a-8ep-1980 41:52:98 EAtLepr’sReSacbinticasest alt) | v 

38 v03-017 LMP0270 L. Mark Pilant, 29-Jun-1984 8:44 | 
orrectly handle a control-C. 

ey v03-016 LMP0268 Mark Pilant yt yates. 15:02 

¢ Dont’ delete the to file if enertins via control-C. 

64 i v03-015 jr0es0 Pilant, 16-Apr-1984 9:14 

65 : Track changes aol = the SCHANGE_ACL system service. 

&9 0€ v03-014 LMP0223 L. Mark Pilant, 6-Apr-1984 13:05 

o8 +: Use the correct amount of storage for the lock block. 

% ’ v03-013 LMPO273 L. Mark Pilant r-1984 12:23 

4 f Add 

ig ig v03-012 Lane? 93 L. Mark Pilant, 14-Feb-1984 11:46 

74 74 Modify the way the journal and recovery files are used. 

he Bat Instead of the ACL, it now logs key-strokes. 

i] 6 v03-011 LMPO185 Mark Pilant, 4-Feb-1984 12:20 

re A Add support for Ssetee ACLs. 

+ v03-010 LMPO181 L. Mark Pilan 15-Dec-1983 9:51 
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support for locking and unlocking the S anieen's ACL. 
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5 Numerous bug fixes, support for VT2xx terminals, and a 
008 session keystroke logger. 
4 VO3-008 LMP0147 L. Mark Pilan 29-Aug-1983 9:48 
9 008 Add support for wet aulti- “Line ACEs during initialization. 

91 sad V03-007 LMP0144 - Mark Pilan 25-Aug-1983 10:12 
4 § Remember initiet” State of the keypad. 
94 $094 v03-006 LMP0142 L. Mark Pilant, 24-Aug-1983 3:18 
95 5 Change references to ACLEDITSINI to be ACLEDITSINIT. 
39 v0O3-005 LMP0103 k Pil 27-Apr-1983 15:20 
98 Add support for HioDeN and BROTETCED ACEs. 
100 1 v03-004 LMP0102 i. Mark Pilan or: r-1983 14:59 
101 101 Use correct funtion codes oe “building : file's ACL from a 
; § ; é recovery journal file. 
104 1 v0O3-003 LMP0100 k Pilan 14-Apr-1983 12:12 
133 : 5 Add the $FORMAT feu” _ SPARSE “ACL system services. 
199 1 v03-002 LMP0076 L. Mark Pilant, 24-Jan-1983 9:06 
4 : Add support for an action definition file. | 
110 110 v03-001 LMPO074 L. Mark Pil ant. FO-Jen-1985 12:07 
13 13 Add support for handling RMS journal ACE's | 
18 118 “8 
114 114 
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ie 


s 33 1 FORWARD ROUT! 

me 1 DUNT ! Main intialization/startup routine 
Ae | 1 D- ILERROR NOVALUE , i Common error report ting 

fa § 75 (1 AED_CTRLCAST NOVALUE, ! Control-C h 

> ¥ f 1 DRAOLER, ' ACL editor ae ; “handler 

3 } $ g ; D-PUTOUTPUT; ! General purpose output routine 
ce : 77 «1 EXTERNAL ROUTINE 

ta 78 1 otra : NOVALUE, ! Main ACL processing routine 

3; 3 1 AED_ CLEANUP : NOVALUE, ! Termination cleanup routine 

ae 1 AED_GETKEYVINI, ! Open action definition file 
79 7 Meo-ck i rcas ! Flush session keystroke buffer 
; : ; § : AED_SET_CURSOR; ! Set cursor position 

ci 3 : 584 1 OWN 

ae 585 1 AED_L_LOCKINFO S$BBLOCK CACL$S_RLOCK -ACLI, 

3: 135 286 1 OBJECT_FAB SFAB_DECL, ! Input object FAB 

:. § 587 1 OBJECT _NAM SNAM_DECL; ! Input object NAM block 
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5 
18-sep-1 4 23:43: AX-11 Bliss-32 V4.0-742 
12-80-1380 99:83:38 ACLEDT.SRCJAEDINIT.B325 1 
a 1 ROUTINE AED_INIT = 
3 13 1 
3; 140 1 fee 
; 14 91 1! 
: 16 3 ; FUNCTIONAL DESCRIPTION: 
3 146 9% (1! This routine is the main routine. It initializes all variables, 
3; «(145 95 1! arses the input qualifiers and objects, opens journal and recovery 
3 4 7 3 iles (if necessary), and sets up the scope for editing. 
:; 14 597 1! 
> «(148 238 1 !-- 
; 149 5 4 
; 150 600 BEGIN 
; 151 01 
iS ¢ 8 LOCAL 
ae | 060 VERB_DESC : $BBLOCK COSCSC_S_BLNJ, ! Invoking DCL verb 
3; 154 0604 CMD _BESC : SBBLOCK COSC$C_S_BLNJ, ' Invoking DCL verb option 
3 155 0605 JOURNAL _DESC : S$BBLOCK LDSCSC_S_BLNJ, ' Journal file descr 
; 156 B08 RECOVER_DESC : $SBBLOCK COSCS$C_S_BLNJ, ! Revocery file descr 
>; ov 060 KEEP_DESC : S$BBLOCK COSCSC_S_BLNJ, ' /KEEP value 
; 158 060 MODE _DESC : SBBLOCK BSCSC_S_BLN ° ! /MODE value 
3 159 060 TERM_ CHAR : VECTOR C ! Terminal characteristics 
> 160 0610 OBJ_EXP_NAME  : $BBL NAMSC_MAXRSS, ' Expanded file name 
; 161 0611 OBJ _RES_NAME : SBBLOCK CNAMSC_MAXRSS], ! Resultant file name 
3 16¢ 0612 JOU-EXP"NAME : SBBLOCK CNAMSC-MAXRSSJ, 
3; 061 JOU. RES_NAME : SBBLOCK CNAMSC_MAXRSS], 
3 1646 0614 REC_EXP_NAME : SBBLOCK ate ged $B 
s 165 0615 REC_RES_NAME : SBBLOCK CNAMSC_MAXRSS t 
3: 166 0616 DEVICE_TYPE ' Device type code 
3: 167 0617 DEVICE-CLASS ' Device class code 
: 168 0618 DEVICE-DEPEND  : $BBLOCK [4], i Device information 
: 169 0619 DEVICE_DEPEND2 : SBBLOCK (4), ! badtetengt device info 
: 170 8658 GETDVI-ARGLIST : BLOCKVECTOR (6, ITMSS_ITEM, BYTEJ, ! GETOVI arg List 
s 171 0621 ACL_FIB : SBBLOCK CFIBSC_LENGTHI, ' For ACL context 
; 172 bos¢ ACL_FIB_DESC : SBBLOCK pscec.s BLN), ' FIB Soper ipter 
; 173 06 ATR_ARGLIST : BLOCKVECTOR C2) ITMSS_ITEM, BYTE) ' ACL attribute descriptor 
3: «174 0624 ACE_POINTER : REF SBBLOCK, ' Address of current AC 
3: 175 0625 ACE_NEWADDR : REF SBBLOCK ! Copy of the header ACE 
; 176 0626 ACE_DESC : SBBLOCK Fosts¢_s_BLN ° . sinery ACE descr 
3 77 0627 ACE_TEXT_DESC =: SBBLOCK COSC$C_S_BLNJ, ' Text ACE descriptor 
: 178 0628 ACE_TEXT_SIZE, ' Text ACE size 
3; 179 0629 ACE_TEXT : SBBLOCK (3072), ! Text ACE storage 
3; 180 0630 NEW TEXT. LINE : REF sealer ' Converted Line storage addr 
3; «181 1 FILE_HEADER : $BBLOCK (512, ' Storage for the file header 
.. o FIRST_CHAR ' Address of first char of segment 
: 188 $38 LAST CHAR, i Address of Last char of segment 
3 184 34 SEGMENT SIZE, i Size of segment 
; He tH ACL CONTEXT; ! ACL context for SCHANGE_ACL 
3 189 : ! Initialize common variables and flags 
3 189 5 ENABLE AED_HANDLER; 
: 191 41 2 AED_L_FLAGS = 0; 
3 135 64 AED_B_OPTIONS = 0; 
: 19 64 AED“L“WORSTERR = SS$_NORMAL; 
3 «(194 0644 AED“B-LINE = AED_B_COLUMN = 1; 
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: 195 5 2 DEVICE_TYPE = DEVICE CLASS = g: 

: 196 646 DEVICE-DEPEND = DEVICE_DEPEND2 = 0; 

: 198 4 CHSFILL (0, DSCSC_S_BLN, AED_Q_OBJNAM); ! Initialize the descriptor 

> 199 rk: AED_Q Genin DSCs CLASS) = BST$k_CLASS_D; i Dynamic descriptor 4 

; 200 0 2 CHSMOVE (DSCS$C_S_BCN, AED_Q_OBJNAM, VERB DESC); 

; 201 6 CHSMOVE (DSCS$C"S-BLN, AED-Q-OBJNAM. CMD DESC); 

; 0¢ CHSMOVE (DSCS$C"S-BLN, AED-Q-OBJNAM, JOURNAL DESC); 

: 20 65 CHSMOVE (DSCS$C"S-BLN, AED~Q-OBJNAM, RECOVER DESC): 

: 204 28 CHSMOVE (DSCSC"S_BLN, AED_Q_OBJNAM, KEEP_DESC); 

; 205 0655 2 CHSMOVE (DSC$C-S"BLN, AED-Q-OBJNAM, MODE~DESC): 

3 4 0628 CHSMOVE (DSCS$C"S"BLN, AED_Q-OBJNAM, ACE_DESC); 

: 20 06 CHSMOVE (DSCSC-S"BLN, AED-Q-OBJNAM, ACE-TEXT_DESC); 

: 208 0658 CHSFILL 0, geTt S_ITEM, GETDVI_ARGLIST); 

; 09 0699 CHSFILL (0, 2eITMSS-ITEM, ATR_ARGLIST); 

: 1} 9d ! Initialize all of the necessary RMS file data structures. 

3 ig P 066 SFAB_INIT (FAB = OBJECT_FAB, 

: 216 P 0664 FAC = <GET, PuT>. 

: 215 P 0665 FOP = UFO 

: 216 0666 = OBJECT_NAM 

+ 217 066 SHR = <GET, OPI>S; 

: 218 0668 2 SNAM_INIT (NAM = OBJECT_NAM, 

: 219 P 0669 ESA = OBJ EXP NAME, | 
: 220 0670 ESS = NAMSC_MAXRSS. 

; 221 P 0671 RSA = OBJ_RES_NAME 
; ¢¢ 967 RSS = NAMSC_MAXRSS); | 
: 334 P 0674 2 SFAB_INIT (FAB = JOURNAL_FAB, 
3 225 P 0675 ALQ = | 
; 326 Pp 0676 DNA = UPLIT (*.J0U"), 
3 227 P 067 DNS = ZCHARCOUNT ('.JOU'), 

3; 228 P 0678 FAC = <GET, PUT, TRN, DEL>, 
3 ¢9 P 0679 FOP = <SQ0. OFP>, 

; P 0680 NAM = JOURNAL_NAM, 

> 231 P 0681 ORG = SEQ, 

; 3¢ P ; RFM = VAR 
; 3 068 XAB = JOURNAL _XABPRO) ; | 
> 236 P 0684 2 SNAM_INIT (NAM = JOURNAL—NAM 

: 235 P 0685 ESA = JOU_EXP-NAME, | 
3; 236 P 0686 ESS = NAMSC_MAXRSS. 

: 237 P 068 RLF = CT_NAM, 

; 38 Pp 0688 RSA = JOU_RES_NAME 

: 9 RSS = MAXRSSS: 

; 240 P 0690 2 SXABPRO_INIT (XAB = JOORNAL_XABPRO, 

+ 261 0691 PRO = <,RWED,.>); 

: 4g P 069¢ $RAB_INIT (RAB = JOURNAL_RAB, 

+ 26 P 069 FAB = JOURNAL-FAB, 

+ 2b P 0694 RAC = SEQ 

3 245 95 ROP = TPTS; 

: 46 38 

+ 267 P 069 SFAB_INIT (FAB = RECOVER_FAB, 

+ 268 P 98 DNA = UPLIT (*.J0U'), 

+ 249 P DNS = ZCHARCOUNT (*.JOU"), | 
: 250 P 0700 FAC = <GET, DEL>, | 
> 251 P 0701 FOP = <SQO, OFP>. 
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; 3 P 07 5 NAM = RECOVER, NAM, 

; P 07 ORG = SEQ 

: 254 7 RFM = VARS; 

; 255 P0705 @ SNAM_INIT (NAM = RECOVER_NAM 

: 6 P 07 ESA = REC _EXP-NAME, 

; P 07 ESS = NAMSC MAXRSS, 

; 258 P 07 : RLF = OBJECT_NAM 

; 259 P 070 RSA = REC RES _NAME | 

; 260 210 RSS = NAMSC MAXRSSS | 

3 261 P 071 SRAB_INIT (RAB = RECOVER_R 

; 26 P rie FAB = RECOVER™ “FAB. | 

; 63 qi3 RAC = SEQ); | 

3 #4 at ! Assign channels for terminal input and output. | 

: 267 P $718 AED_L_STATUS = SASSIGN (DEVNAN = SDESCRIPTOR (*SYS$INPUT"), | 

> 268 orig CHAN = AED_W_TERMIN) 

: 269 O71 IF NOT .AED_L_STATUS | 

: 270 720 2 THEN | 

: 271 0721 N 

; 2? O7ee SIGNAL (.AED_L STATUS) | 

: 27 07 RETURN .AED_C “QORSTERR’ OR STSSM_INHIB_MSG; 

i $f $758 ~— | 

: 276 P 07 6 AED_L_STATUS = SASSIGN (DEVNAM = $DESCRIPTOR ('SYSSOUTPUT"), | 

: 277 07 CHAN = AED_W_TERMOUT); | 

: 278 0728 2 IF NOT .AED_L_STATUS 

: 579 0729 3 THEN | 

; 280 0730 BEGIN 

: 281 0731 SIGNAL (.AED_L_STATUS) 

; 28 07 3 RETURN .AED_C “QORSTERR’ OR STS$M_INHIB_MSG; 

ee al hee 

; 44 0736 ! Get the necessary information about the terminal 

; $89 07 $ GETDVI_ARGLISTCO, ITM$W_ITMCOD] = DVIS_DEVTYPE; 

; 288 0738 GETDVJ~ARGLIST 0. ITM$W~BUFSIZ] = 4; | 

3 289 073 GETDVI— ARGL ISTCO, ITMSL-BUFADR] = DEVICE. TYPE; 

: 290 0740 VITARGLISTC1, ITMSW-ITMCOD) = DVIS_DEVCLASS; | 

> 291 0741 CETDVI “ARGLISTC1, ITM$WBUFSIZ) = 4; 

: g O74¢ GETDVI-ARGLISTC1, ITMSL-BUFADR) = DEVICE CLASS; 

> 29 074 GETDVI-ARGLISTCE2, ITMSW-ITMCOD) = DVIS_DEVDEPEND; 

+ 29% 0744 2 GETDVI-ARGLIST(C2, ITMS$W~BUFSIZ) = 4; | 

: 295 0745 GETDVI-ARGLISTCo, ITMSL-BUFADR) = dévic E_DEPEND; 

3 746 GETDVI-ARGLISTC3, ITMS$W_ITMCOD) = DVI$_DEVDEPEND2; 

: 297 074 GETDVI-ARGLISTC3, ITMSWBUFSIZ) = 4; 

: 298 748 2 GETDVITARGLISTC3, ITMSL~BUFADR] = DEVICE_DEPEND2; 

: 299 0749 2 GETDVI-ARGLISTC4, ITMSW-ITMCOD] = DVI$_DEVBUFSIZ: 

: 300 0750 2 GETDVITARGLIST(4, ITMS$W~BUFSIZ] = 4; 

: o1 731 GETDVI-ARGLISTL4, ITMSL~BUFADR] = AED_L_PAGEWIDTH; 

: g P rag AED_L_STATUS = $GETDVI (CHAN = .AED_W_TERMIN 

; 304 P 0754 MLST = GETDVI_ARGLIST, 

: 305 755 10s8 = AED_W_I05B); 

; 06 736 IF .AED_L STATUS | THEN AED_L_STATUS"=".AED_W_10SBL0); 

: 30 75 IF NOT 7AED_L_STA 

; 308 0758 2 THEN 
j 
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M_CHAR); 
IF ne STATUS THEN ATUS = .AED_W_10SB(0); 


DL 
IF NO “hED L_STATUS 
iene 


19 6 SIGNAL (.AED_L_STATUS); 

1 61 RETURN .AED_C_QORSTERR OR STSS$M_INHIB_MSG; 

ig re “1 

14 764 AED_t PAGESIZE = DEVICE pEnENnces 8 

15 765 2 IF [DEVICE CLASS NEG b¢ TERM THEN *aeb _L.PAGEWIDTH = 132; 

18 168 IF .DEVICE_TYPE EQL TTS$_0T 

1 76 OR .DEVICE_TYPE Fal TT$-VT 

18 768 THEN AED FLAGS AED_V_QTSx) = 1; 

1 7 IF .DEVIT =DEPENDS TT2$V_DECCRT) THEN AED_L FLAGSCAED V_VTIXX] = 1; 
0 770 @ IF .DEVICE-DEPEND2LTT SVIDECCRT } THEN AED c OFLA GS {AED V_vt2xx) = 1; 
1 771 AED_L_FLAGSCAED_V_WRAP) = .DEVICE_DEPEND(TT 
¢ re AED-L-FLAGSCAED_V_SCOPE) = .DEVICE_DEPENDLT 1360PE]; 

77 AED“L-FLAGS AED. V"APPLICAT] = DEVICE DEP END2CT PP KEYPAD); 
: aK 'AEB_C_FLAGSCAEB_V_OVERSTRIKE] = NOT [DEVICE eOEPENDOCTIZGy. INSERT]; 
6 r76 ! If the terminal is a scope, set it to nowrap, set it to the home position, 
i ads ! clear the entire screen, and set the alternate keypad if possible. 

39 jAED_L_FLAGSCAED_V_SCOPE] 

31 BE 

3 D_W_TERMOUT, 

3 _SERSEMODE, 

34 “W ° 

35 

36 

34 

3 

i 


BEGIN 
SIGNAL (.AED_L STATUS); 
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31 RETURN .AED_C_QORSTERR OR STSSM_INHIB_MSG; 
38 1 .AED_L_FLAGSCAED_V_WRAP] 
795 BEGIN 
796 SBBLOCK CTERM_CHAR(1) 118v -WRAP) = 0; 
P 079 AED_L_STATUS = $Q10W (CHAN = .AED We eo 
P 0798 Fue t = 10$_SETMODE, 
P 0799 OSB = AED7W 108 
800 Pi = TERM CHAR); 
: LF AED STATUS $ THEN AED_L_STATUS = * AED. W_10SB(0); 


SeS<cS 


BEGIN 
SIGNAL (.AED_L_ STATUS); 
— AED ¥ _DORSTERR- OR STSSM_INHIB_MSG; 
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AED im Meiatus = $O10W (CHAN = .AED W TERMI 
FUNC ios _SETMODE of 1OSM_CTRLCAST, 


vvvD 


STS; 
L STATUS THEN AED_L_STATUS - *heb_w_10SBC0); 
AED_L_STATUS 
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1g 4 BEGIN 
17 & SIGNAL (.AED_L oS ratus>: 
18 RETURN -AED_C_QORSTERR OR STSSM_INHIB_MSG; 
9 SCRSERASE_PAGE 1, HF 
SCRSSET g SCROLL 9 05; the scrolling region 
; IF (. AED L FLAGS AED_V vT5x3 OR ees L. FLAGStAED. V_VT1XXJ) 
AND NOT “RED L FLAGSTAED vA 
$ wen AED “PUTOUTPUT ( DESCRIPTOR CRCHARCAED. C_CHAR_ESC),*°=")); 
8 
: $ ! Get the name of the object whose ACL is to be modified. 
8 ; CLISGET_VALUE (SDESCRIPTOR ("INPUT'), AED_Q_OBJNAM); 
831 ! Determine what DCL verb and option used to invoke this image. Also, set the 
é § i appropriate default object type code. 
CLISGET VALUE (SDESCRIPTOR ("SVERB'), VERB_DESC); 
0835 F CHSEGL ( (VERB DESCLDSCS$W_LENGTH], .VERB-DESCLOS SC$A A_POINTER) 
O88 RINU NU T.VERB_DESCCDSCSW_LENGTHJ, ZCHARCOUNT ("EDIT')), UPLIT (*EDIT"), 
sts4 THEN AED_L_OBJTYP = ACLSC_FILE; ! Set default type 
0840 2 IF CHSEQL (. aVERe DESCCDSCS$W_LENGTH], .VERB_DESCCDSCSA_POINT FRI. 
0841 NU T.VERB_DESCCDSCS$W_LENGTHJ, SCHARCOUNT~(*SET')). UPLIT (*SET"), 
tk: THEN 
0844 BEGIN 
0845 CLISGET VALUE (SDESCRIPTOR (*OPTION'), CMD_DESC); 
0846 IF CHSEGL (.CMD -DESCCDSCSu LENGTH], .CMD_DESCCDSCSA_POINTER] 
0847 MINU~(.CMD_DESCCDSC$W_ LéngtH3 = ZCHARCOUNT (FILES), UPLIT (*FILE"), 
0849 THE 
0850 4 BEGIN 
851 4 AED_L_FLAGSCAED_V E_cHD) =1; 
085 4 AED-L_OBJTYP = ACCSe F 
4 OB3c ‘ 
0855 IF CHSEQL (.CMD -DESCCDSCSW ENGTH], .CMD_DESCCDSCSA_POINTER] 
406 0896 mINU™( CMD  DEScED SC$W_LENGTH], ZCHARCOUNT ("DIRECTORY')), UPLIT ("DIRECTORY"), 
408 858 
409 859 4 BEGIN 
410 0 4 AED_L_FLAGSCAED_V R_cHD) =1; 
411 861 4 AED-L-OBJTYP = ACCSe F 
aig 86¢ ; 
i is 
414 9 IF CHSEQL (.CMD_ DescCDSCSu LENGTH], .CMD_DESCCDSCSA_POINTER) 
415 865 MINU~ (.CMD_DESC Ha SC$W_LENGTH), ZCHARCOUNT (*DEVICE')), UPLIT ("DEVICE"), 
416 866 0) 
41 THEN 
418 ri BEGIN 
41 4 AED_L_FLAGSCAED_V_SET_DEV_CMD) = 1; 
420 0 4 AED“L~OBJTYP = ACCSC_BEVICE; 
421 71 ; END; 
422 72 


<> 
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he tts 12-808-1382 73 $3: $3 ACLEDT.SRC AEDINIT.B32; 1 ° S| 
; 623 IF CHSEQL (.CMD_DESCCDSCSW peverns 2 6 Desc tDs SCSA POINT ER] 
: : ¢ ae (.CMD_DESCCDSC wil THJ> ZCHARCOUNT ( Ness, UPLIT (°ACL"), 
: 4 § THEN 
; 4 4 BEGIN 
; 4 8 4 AED_L_FLAGSCAED_V set ACL_CMD] = 1; 
3 4 AED-L-OBJTYP = ACCSC_FILE; 
3; 6 END; 
: ? 1 END; 
; 4 5 ! Get the object's type code. 
; 435 If CLISPRESENT (SDESCRIPTOR (‘OBJECT_TYPE.FILE')) THE L_OBJTYP = ACLSC_FILE; 
s 6 If gtr tet! (SDESCRIPTOR ("OBJECT TYPE .DEVICE')) THEN AED-L_OBJTYP = ace sc DEVICE; 
; 4 IF CLISPR SDESCRIPTOR (‘OBJECT-TYPE .QUEUE')) THEN AED_C OBJTYP = ACL C_Joecry Queu 
3; 4&4 If EL ISPRESENT (SDESCRIPTOR ("OBJECT_TYPE.EVENT_CLUSTER')) THEN AED _L_OBJTYP = ACLST LE URON EF _ CLUSTER; 
; 439 IF CLISPRESENT (SDESCRIPTOR ("OBJECT TYPE.LOGICAL NAME E')) THER RED_L OBJTYP = ACLSC_ LOGICAL NAME _ TABLE 
3; 440 IF CLISPRESENT (SDESCRIPTOR (‘OBJECT “TYPE ..PROCESS*)) TREN AED_L_OBJTYP = ATLSC_PROCESS; 
$ “ai 4 IF CLISPRESENT (SDESCRIPTOR (*OBJECT~ 1 YPE.GLOBAL_ secTiON™ )) TRER AED_L_OBJTYP = Mo ESSE, opal SECTION: 
; ar 7 ! Parse the verious options that the user may have specified. 
; 445 If (AED_B_OPTIONSCAED_V_JOURNAL] = CLISPRESENT (SDESCRIPTOR (*JOURNAL*))) 
3; 666 38 THEN 
: 4467 BEGIN 
: 448 CLISGET_VALUE (SDESCRIPTOR (* JOURNAL"), JOURNAL_DESC); 
> 449 0899 JOURNAL “Rast ABSL_RBF) = JOURNAL_BUFFER; 
; 450 JOURNAL RAB RABSW_ RSZJ) = 10; 
3 451 1 JOURNAL-INDEX = 03 
3 $28 164 END; 
; 454 0904 IF (AED_B_OPTIONSCAED_V_RECOVER] = CLISPRESENT (SDESCRIPTOR (*RECOVER'))) 
: 222 0306 ee 
3 457 309 CLISGET_VAL (SDESCRIPTOR ( meh maces RECOVER_DESC); 
; 458 0908 RECOVER-RABCRABSL_UBF) = R cov VER_BUFFER; 
; 459 0909 RECOVER_RABLRAB$SW_USZ] = 
; 460 0910 RECOVER “RAB RABSW_ RSZ2J) = ve 
; 461 11 RECOVER INDEX = 0; 
ao Be 
; 464 0914 AED_B_OPTIONSCAED_V_KEEPREC] = CLISPRESENT (SDESCRIPTOR (°KEEP. RECOVERY* ds 
3 +33 3912 AED-B_OPTIONSCAED_V_KEEPJNLJ = CLISPRESENT (SDESCRIPTOR ("KEEP.JOURNAL')); 
; 48? O31? AED_L_FLAGSCAED_V_PROMPT] = CLISPRESENT (SDESCRIPTOR (*MODE.PROMPT')); 
: 469 $919 ! Now that all of the necessary command Line parsing has been done, attempt 
3 rth , i to lock the object for future ACL modifications. 
s 467 : ATR_ARGLISTCO, ITMSW_ITMCOD) = ACLS$C_WLOCK ACL 
; 47 ATR™ ARGLIST(O, * ITM MSW _BUFSIZ] = ACL Ss. “WLOCK~ ACL; 
3: 4676 924 ATR “ARG LIST ha BUF nt’ = AE LOCKIREFO 
> 675 P0925 2 AED“L_ STATUS = $CHANGE_ACL (CHAN =". ED W W OBJEHA N. 
: 47 P 09 6 OBJTYP = AED_C_OBJTYP., 
; 47 P 09 OBJNAM = AED-Q”-OBJNAM, 
; 67 9 3 ITMLST = ATR “ARGLIST); 
: 47 9 IF NOT .AED_L_STATUS 
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4 THEN 

¢ : PFO RED L_STATUS EQL SS$_NOTQUEUVED 

4 zi THEN SIGNAL (AEDS 08, OCRED) 

4 ELSE SIGNAL (.AED ‘ STATUS); 
4 5 RETURN -AED_L_WORSTERR OR STSSM_INHIB_MSG; | 
: CHSFILL (0, 2*ITMSS_ITEM, ATR_ARGLIST); 
489 ! If the target object is a file, it is necessary to open the file and get 
490 ! the channel assigned to it. Otherwise, do a parse to fill in the NAMe 

$33 ! block necessary Tor the journal and recovery file names. 
49 If .AED_L_OBJTYP EQL ACLSC_FILE 

494 THE 
495 BEGIN 

rh peat PE ae 1 er os he = .AED_Q_OBJNAMCDSCSA_POINTER]; 

49 OBJECT _FABLFABSB FNS) = .AED_Q OBJNAMLDSC$W_LENGTH); 

498 F NOT SOPEN (FAB = OBJECT_FABY 

499 N 

00 BEGIN 

01 AED_FILERROR (AEDS_OPENIN, OBJECT_FAB, aE eT esl 315) 

OBJECT-FABLFABSL-STVJ); 


aleabeal 
oo 
wr 
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RETURN -AED_L_WORSTERR OR STSSM_INHIB_MSG; 


AED_Q_OBJNAMCDSC$W_LENGTH] = .OBJECT_NAMCNAMSB_RSL); 
AED-Q-OBJNAMCDSCSA-POINTER] = .OBJECT_NAMLNAMSC_RSAI; 
AED_W_OBJCHAN = .OBJECT_FABCFABSL_STVI; 


! Determine whether or not the file is a directory file. 


ATRARGLISTEO. ATRSW_TYPE] = ATRSC HEADER: 
ATRIARGLISTEO, ATRSW_SIZE ; 


ATR-ARGLISTCO, ATRSL— 
AED-L_STATUS = SQJOW™ (CHAN 


z 
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4 
= 
Cc zs 
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PESISSSSSSIISSSSS 


oO SSSZSSSSSSSSIIS SS SETTER ESTE SoS 


AED-W_OB 
i0$_AcCess, 
B = AED-W I0SB, 

P5 = ATR_ARGCIST): 
L_STATUS THEN AED_L_STATUS = .AED_W_10SB(0); 
AED_L_STATUS 
fd 


ee ed a ed ed ed ed ad 
vv0v 


NOUEWUN —OOONOUSWN—O 


GNAL (AEDS _READERR, 1, AED. Q OBJNAM, .AED_L_STATUS, 0); 
TURN .AED_C_WORSTERR OR STSSA_INHIB_MSG; 
H 
) 


FLAGSCAED V_DIRECTORY) = .FILE_WEADERLFH2$V_DIRECTORY); 
L (0, 2eITMSS_ITEM, ATR_ARGLIST); 


ee 
NOUSWN Oo 


OBJNAMCDSCSA_POINTER); 
OBJNAMLOSC$W~LENGTHJ; 


POINTER], .AED_Q OBJNAMCDSCS$W_LENGTH) - 1; , BYTE) EQL ':* 
OBJECT FABCEABSE FNSS = 1; ~ 
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if NOT SPARSE (FAB = OBJECT _F AB) 


BEGIN 
AED_FILERROR (AEDS_SYNTAX, OBJECT_FAB, -084 CT _FABEFABSL_ StS). 
RETURN -AED_L_WORSTERR OR STSSM_INHIB_MSG; ~ : ; 
JECT at NAMSB_RSL -OBJECT_NAMCNAMSB_ESL]; 

aes SHARCNARSL ono = OBsEET- “NARENARSS “ES43: 


! Open the journal file and the recovery file if specified. 
ae -AED_B_OPTIONSCAED_V_RECOVER) 


Sas 23333323838 


3 NBEGIN 
RECOVER -FABTFABSL FNA] = RECOVER -PEStED SCSA_POINTER); 
5 RECOVERE FABCF ABSB_FNS ; RECOVER DESCLDSC$W-LENGTHJ; 
IF NOT SOPEN (FAB™= RECOVER FAB) 
$0 BEGIN 
809 AED_FILERROR (AEDS_RECOPENIN, RECOVER_FAB, .RECOV n_FABe EARS sts} 
.RECOVER-FABLFABSL_STVJ); 


ato B_OPTIONSCAED_V_RECOVER] = 0; 


it 4 IF NOT SCONNECT (RAB = RECOVER_RAB) 


BEGIN 
AED_FILERROR (AEDS$_RECOPENIN, RECOVER_FAB, .RECOVER ~faptnanst . sts} 
;RECOVER RABLRABSL ~STVJ); 
AED. B_OPTIONSCAED_V_RECOVER] = 0; 
END; 
IF AED. B_OPTIONSCAED_V_JOURNAL] 
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BEGIN 

JOURNAL er tyre aS - JOURNAL _DESCCDS 
JOURNAL . JOURNAL -DESCCDS 
my OT SCREATE. (FAB. = JOURNAL _FABY 


BEGIN 
AED_FILERROR (AED$_JOUOPENOUT, JOURNAL_FAB, ao ae FAB ny -$T8}5 


- JOURNAL “F ABLF 
AED_B_OPTIONSCAED_V_JOURNAL] = 0; 


EL +344 IF NOT SCONNECT (RAB = JOURNAL_RAB) 


BEGIN 
AED_FILERROR (AED$_JOUOPENOUT, JOURNAL_FAB, .JOURNAL ~fABeRagsi sts} 

. JOURNAL ~RABLRABSL~STVJ5; 
AED. -B_OPTIONSCAED_V_JOURNAL} = 0; 


CSA_POINTER]; 
C$W"LENGTH); 
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§ ! Check for the editor action definition file. This is pointed to by the 
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DSINIT 14.58 “1 243: AX-11 Bliss-32 V4.0-742 

voe~000 12280871 98e $7 :$3:38 ERCLEDT-SRe AEDINIT.832;1 
; tesicat name ACLEDITSINIT. If it does not exist, a set of defaults is used. 

! If it exists, we any errors are encountered opening or reading it, an 
! error message is given, and the ACL editor will exit. 
4 
4 
4 
| 
4 
6 
4 
4 


AED_L_STATUS = AED GETKEYINI (); 
IF ROT .AED_L_STATOS THEN RETURN .AED_L_STATUS OR STSSM_INHIB_MSG; 


! Now that the necessary files have been opened, the in core copy of the ACL 
' must be built. 


PLISEETRESE 


at Stet = AE 
LINE-LUBLINK) = AE 
C_LENGTH, ACL_F1B); 
BLN, ACL_FIB P 


Esc 
CENGfH) ="F1BSC_LE 
SA-POINTER) = ACL_FIB 


! Read any ACL current associated with the object. 


AED_L_STATUS = ALLOCATE (512, AED_A_ACLBUFFER); 
F ROT AED_L_STATUS 


Bee e SSeS SSSeoS 
oOoo0o0o 
DOne us 


AOAOAA 
4 
wer 


): 
NGTH; 


BEGIN 
SIGNAL (.AED_L_ STATUS); 
RETURN -AED_C_QORSTERR OR STSSM_INHIB_MSG; 


NIsseceaseTee 


! Read in the ACL. 


oO 
~ 


ACL_CONTEXT = 0 
ATR_ARGLISTCO, 
ATR_ARGLIST 6 
ATR-ARGLIST 
WHICE 1 

DO 


» LTM$W_BUF SIZ 
« ITMSL_BUFADR 


iT™Sw rete} - ACLSC_READACL; 
= .AED_A_ACLBUFFER; 


Bescesss 
SS Saou 


BEGIN 
CHSFILL (0, 512, .AED_A prleyt 


AED_L_STATUS = $CHANGE_ACL (CHAN =". AED W_OBJCHAN, 
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FE 
P AN 
P 10 OBJTYP = AEB_C_OBJTYP, 
P 10 OBJNAM = AED-Q-OBJNAM, 
P 1085 ITMLST = ATR_ARGLIST 
0 CONTXT = ACLICONTEXTS; 
087 IF NOT .AED_L_STATUS 
THEN 
39 089 BEGIN 
640 090 IF .AED_L_STATUS EQL SS$_ACLEMPTY OR .AED_L_STATUS EQL SSS$_NOMOREACE THEN EXITLOOP; 
641 1 SIGNAL TAED$_READERR, 1,AED_Q OBJNAM, .AED-L_STATUS, 0); 
64¢ 3 RETURN -AED_C_WORSTERR OR STSSA_INHIB_MSG; 
644 ACE_POINTER = .AED_A_ACLBUFFER; 
645 5 UNTIL .ACE_POINTER”GEQA .AED_A_ACLBUFFER + 512 
be BEGIN 
648 9 IF .ACE_POINTERCACESB_SIZE} EQL 0 THEN EX 1 TLOOP: 
649 AED_L_STATUS = ALLOCATE (.ACE_POINTERCACESB_SIZEJ, ACE_NEWADDR); 
650 100 IF ROT .AED_L_STATUS 
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! At this 
! prompt the 


AED_PROCESSACL(); 


! ALL of the ACL processing has been completed. 
i returning control to the user. 


AED_FLUSHKEY (); 
AED-CLEANUP (); 
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ACLEDT.SRCJAEDINIT.632;1 

END; 
AED_L FIRSTLINE LINE V_BEGINACE) = 1; 
IF iACe IN ER ACE AidD j 
OR (.ACE_POINTE CACE Y ACESC_KEYID 

AND [ACE _POINTER[ACESB_ TYP Q ACESC_BIJNL 

AND .ACE-POINTERLACESB_TYP Q ac cA JNL 

AND .ACE-POINTERLACESB_TY Q ACESC“A JN 

AND .AC =POINt REACESB-TY Q@ ACESC"AUD! 

AND “AC “POINTERLACESB_TY Neg ACESC-ALARM 

TROUNTER ACESB-TYPE) NEQ ACESC_DIRDEF) 
AED A oct FT INE Ly tine SN cENORCE _ wins 
_ $ 
aa + ACE POINTER + .ACE_POINTERCACESB_SIZEJ; 


END; 
ren fitine ste. AED_A_ACLBUFFER); 
! Now set up the initial display. 
iF ~AED Q LINETABLECLINE_L 


a NEQA AED_Q_LINETABLECLINE_L_FLINK] 


AEB_C_FLAGSCAED_v_ STOP 


BEGIN 
~ eens = AED_Q_LINETABLECLINE_L_FLINK); 


BEGIN 
ACE _NEWADDR = 
AED_Q 


ACE NEWADDREL INE L.FLINK]; 
OUTLIN osCSO_LEN ACE _NEWADORCLINE_w 
INELDSCSA POINTER] = ACEIN I 


ED O" OTL INE); 
D ~ +1; 


mi Tiee 
EWADDRCLINE_T_TEXTIJ; 


int all of the necapeery initialization has been completed. Now, 
user for any modifications to the ACL. 


Do some final cleanup before 


! Reset any screen setup done 


RETURN .AED_L_WORSTERR OR STS$M_INHIB_MSG; 


! End of routine AED_INIT 
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rahe th 1$-sen-1984 49:93:58 | Aer Obhe Sao NtT esos Page 48 
.PSECT AED_COMMON,NOEXE, OVR,O 
00000 AED_L_FLAGS: 


LKB 4&4 

00004 AED_8 OPTIONS: 

or es } 
88885 aco oats * 
OO00C AED_Q_OBJNAM: 

sOLKS 8 
00014 AED_L “age tpl 4 
00018 AED_L_ “digg pee ‘ 
Q001C AED_L chaos 1 4 
00020 AED_B_ eet ' 
CH -BLKB 3 

0024 AED_B_LINE: 

~BLK 1 
p0085 -BLKB 3 
00028 AED_B_SAVE_COL: 

-Bfke 1 
p00e? -BLKB 3 
002C AED_B_SAVE LIN: 

BCkB 1 
0002D 3 


-BLKB 
00050 AED_Q_LINETABLE: 
-BLKB 
OO035C AED_L_CURACE: 
-BLKB 
00040 AED_L_FIRSTLINE: 
-BLKB 
00044 AED_L -LASTLINE: 
00048 AED_L ae Yak 
0004C AED_W at 
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$0056 AED_Q pei ace: 
00058 AED_Q_DEL CINE 
00060 AED_o_pEL WORD 
00068 AED_B_DEL CHAR: 


BL 
0069 -BLKB 
006C AED_A_ACLBUFFER: 


-BLKB 
00070 AED_@ OUTLINE: 
00078 AED_W_OBJCHAN: 
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AED_W_TERMIN: 

.BLKB 

LKB 

OUT: 

-BLKB 


-BLKB 
AED_W_10SB: 


LK 
AED_L_STATUS: 


-BLKG 
00090 AED_B_FIELD: 
-BLKB 


904 
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OO9A 
009C 
00090 
QO0A2 
Q00A4 
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QOOAC 
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00080 
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-BLKB 
94 AED_W_FIELDBEG: 
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00098 AED_W_FIELDEND: 
-BLKE 


“BLKB 
AED_B_ITEM: 
-BLKB 


-BLKB 
OQOOAO AED_W ~1TENBEG: 


-BLKB 
AED_W_ ITEMEND:: 
-BLKB 


6 -BLKB 
QO0A8 AED_B_ACETYPE: 
-BLKB 


“BLKB 
AED_W_JOURNAL : 
BLKB 


-BLKB 
AED_T_CURLINE: 


BLK 
AED_W_TOTALSIZE: 


002¢ -BLKB 
b03c8 JOURNAL FAB: 
00318 JOURNAL _NAM: 
00378 JOURNAL_RAB: 
BL 


003B8C 
00414 


0042 
00424 
00474 


-BLKB 

JOURNAL _XABPRO: 

JOURNAL _BUF FER: 
BL 


-BLKB 
JOURNAL INDEX: 
RECOVER_FAB: 
RECOVER_NAM: 
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-BLKB 96 


004D4 RECOVER_RAB: 


-BLKB 
00518 RECOVER_BUFFER: 
-BLKB 


$085 RECOVER. INDEX: 
-BLKB 


68 
10 
2 


4 
.PSECT $PLITS$,NOWRT,NOEXE,2 
35 4F 4A 2€ 9000 P.AAA: .ASCII \. JOU : 
4F GA i 004 P.AA “ASCII \.JOU\ : 
54 55 50 4E 49 24 53 59 9008 PAA “ASCII \SYSSINPUT\ : 
SPUUBER. 8818 PMC! SeORess’p ap : 
54 55 50 54 55 4F 24 53 3 9" Oo1c P.AAF nity S SVeSOUTPUT\ : 
0000000A 000 8 P.AAE: .LONG 10 : 
00000000" 0002c .ADDRESS P.AAF : 
1B 00030 P.AAH: .ASCII <2/> : 
3p 00031 eASCII \=\ : 
900 2 .BLKB 

00000002 00034 P.AAG: .LONG : 
00000000' 90038 .ADDRESS P : 
54 55 50 4E 49 0005¢ P.AAJ “ASCII \TAPUTA : 
00000005 00044 P.AAI: .LONG : 
00000000' 00048 -ADDRESS P : 
42 52 45 56 24 OO004C P.AAL: .ASCII \SVERB\ : 

0051 .BLKB 3 
00000005 00054 P.AAK: .LONG : 
00000009" 0058 .ADDRESS P.AAL : 
54 49 4&4 45 OO005C P.AAM: .ASCII \EDIT\ : 
00 54 45 53 00060 P.AAN: .ASCII \SET\<0> : 
4E GF 49 54 50 4F 00064 P.AAP: .ASCII \OPTION\ : 

006A -BLKB 2 
90000006 006C P.AAO: .LONG 6 : 
0009000 y 9070 .ADDRESS P.AAP : 
45 4¢ 49 46 00074 P.AAQ: .ASCII \FILE\ : 
00 00 00 59 52 4F 54 43 45 52 49 44 00078 P.AAR: .ASCII \DIRECTORY\<0><0><0> 3 
00 00 45 43 49 56 45 44 00084 P.AAS: .ASCII \DEVICE\<0><0> : 
09 4c 43 41 908¢ P.AAT: .ASCII \ACL\<0> : 
46C 49 466 2€ 45 50 59 54 SF 54 43 45 4A 4 af 9990 P.AAV: ASCII \OBJECT_TYPE.FILE\ : 
00000010 O00A0 P.AAU: .LONG ie : 
00000000° 000A4 .ADDRESS P : 
56 45 44 2E 45 50 59 54 SF 54 43 45 4A 42 4F OOA8 P.AAX: .ASCII \OB JECT. TYPE .DEVICE\ : 
45 43 49 0008 : 

OBA .BLKB 

90000013 OBC P.AAW: .LONG : 
0000000° C .ADDRESS P : 
45 55 51 2€ 45 50 59 54 SF 54 43 45 4A 4 af C4 P.AAZ: .ASCII \OB JECT. TYPE .QUEUE\ : 

00003 .BLKB 3 
00000011 000D8 P.AAY: .LONG 17 : 
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13-Sep-1984 23:43: AX-11_ Bliss-32 V4.0-742 
12-85-1980 7:93:38 ACLEDT. SRCJAEDINIT B32; 1 
43 sADDRESS P.AAZ 
FF P.ABB: .ASCII \OBJECT_TYPE.EVENT_CLUSTER\ 
OOF9 -BLKB 3 
OOFC P.ABA: .LONG 5 
3 -ADDRESS P.ABB 
O14 P.ABD: .ASCII \OBJECT_TYPE.LOGICAL_NAME_TABLE\ 
1 -BLKB 
124 P.ABC: .LON 0 
128 «ADDRESS P.ABD 
| 5 P.ABF: .ASCII \OSJECT_TYPE.PROCESS\ 
013F -BLKB 1 
0140 P.ABE: .LONG 19 
0144 -ADDRESS P.ABF 
Boies P.ABH: .ASCII \OBJECT_TYPE.GLOBAL_SECTION\ 
Boies -BLKB 
0164 P.ABG: .LONG 6 
00168 -ADDRESS P.ABH 
B01 86 P.ABJ: .ASCII \JOURNAL\ 
001 -BLKB 1 
00174 P.ABI: .LONG 7 
00178 «ADDRESS P.ABJ 
gat zt P.ABL: .ASCII \JOURNAL\ 
0018 -BLKB 1 
00184 P.ABK: .LONG 
00188 «ADDRESS P.ABL 
ib P.ABN: .ASCII \RECOVER\ 
0019 -BLK 1 
Ooton P.ABM: .LONG 
0198 -ADDRESS P.ABN 
HS P.ABP: ot peceveny 
bO1ae P.ABO: .LONG 7 
Bar ae «ADDRESS P.ABP 
th P.ABR: rt ee 
O1BC P.ABQ: .LONG 13 
01C¢0 -ADDRESS P.ABR 
O1C4 P.ABT: .ASCII \KEEP.JOURNAL\ 
0100 P.ABS: .LONG 12 
ate -ADDRESS P.ABT 
108 P.ABV: .ASCII \MODE.PROMPT\ 
OIE -BLKB 1 
O1E4 P.ABU: .LONG 11 
Bier -ADDRESS P.ABV 
1EC P.ABX: .BYT 9 
O1ED -BLKB 
O1FO P.ABW: .LONG 1 
O1F4 -ADDRESS P.ABX 


<PSECT SOWNS,NOEXE ,2 
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-BLKB 4 
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ERR 
m AED$_RECLOSEIN 
BADUIC, AED$_BADGRPMEM 


‘ozo 
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“NOMOD IF Y 
AE UPLICATE, AEDS_N INE 
AEDS-NODEFAULT. AEDS~ NOCTRECHAR 
AEDS” se AED$_CONTROL_C 


ad Mo 2 cela 
AED -ftien KEY, AED SET_CURSOR 
SYSSASSIGN, LIBSSTGNAC 
SYSSGETDVI, SYS 


SYSSPARSE, SYSSCONNECT 
SYSSCREATE, SYSSFORMAT_ACL 


SCODES ,NOWRT,2 


wn” 
vw 


oR4,R5,R6,R7,R8,R9,R10,R11 


roe 
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2 
AEDSINIT 15-Sep-19 AX-11_ Bliss-32 V4.0-742 P 1 ; 
v042000 14- a 1984 i $3: 33 EACLEDT.SRCSAEDINIT.83251 nt 3 \ 
eS fis 3 
08 00 6E esee* 09 2c § MOVCS #0, (SP), #0, #8, AED_Q_OBJNAM ; 3 : 
900" CF ; MOVB_ #2, AED_Q_OBJNAM+3 + 0649 ; 
FB AD 000' CF MOVC3 #8, AED"Q"OBJNAM, VERB_DESC : 0650 : 
FO AD 0° CF D MOVC3 #8, AED-Q"OBJNAM, CMD DESC ; 0651 : 
EB AD ' CF 44 MOVCS #8, AED-~Q-OBJNAM, JOURNAL DESC i 065¢ : 
£0 AD 00° ¢F f MOVC3 #8. AEDTQ“OBJNAM, RECOVER-DESC + 0653, 
D8 AD 000° CF 005 MOVC3 #8, AED"Q"OBJNAM, KEEP_DESC ; 0654 ; 
D0 AD 00° CF 005 MOVC3 #8, AED"Q"OBJNAM, MODE~DESC ; 0655 ; 
F914 «CD Some CF 5868 MOVC #8, AED_Q-OBJNAM Ace Bese : 8636 ; 
F90C = CD 00" CF 06 MOVCS #8. AED~Q =OBJNAM ACE-TEXT_DESC ; 065 : 
0048 8F 00 6E core | 28 26 90070 movcS #0, (SPY,~ as GETDVI ARGLIST ; 0658 : 
18 00 6E wae tit MOovCS #0, (SP), #0, #24, ATR_ARGLIST ; 0659 
0050 8F 00 bE aaa 00 2c 00082 MOVCS #0, (SP), #0, #80, SRMS_PTR ; 0667 
0000" CF $508 8F B0 9008¢ MOVW #2 483, SRMS_PTR : ; 
9000° CF 00020000 BF 0 0009 MOVL SRMS_PTR+4 : : 
a i, : : 
0000" CF 0000" CF 9E 000A8 MOVAB OBJECT_NAM, SRMS_PTR+40 ; : 
0060 8F 00 GE sono OP 26 BO0AF movcS #0, (SP), #0, #96, SRMS_PTR ; 0672 : 
a ag a : 3 
0000° CF Foc «CD OE D00¢s MOVAB —OBJ_RES RARE» SRMS_PTRe4 ; : 
0000" CF FEC’ «SD SE Oo0b NOVAS On _EXP RAM "Sams _pTR+12 : ; 
0050 8F 00 6E sal 00 2c 90008 mOVCc5 70, “iSpy Rare #80, ~SRMS_PTR ; 0683 : 
0000" CF $08 SF BO ooorD MOV Hi i SRMS_PTR ; ; 
9000' CF 200000460 Bt D0 OO0E9 MOVE 6976, ants. PTR+4 ; : 
0000" CF _ 12 90 O00F? ROVE #28, SAAS” ia 82 : 
ooo: cp | Ob 86 oot09 oe Se ene BeRest 
0000" CF  Q000' CF 9E 00105 MOVAR JOURNAL RABPRO, SRMS_PTR+36 ; 
0000" CF 0000' CF 9E 010¢ MOVAB JOURNAL“NAM, SRMS_PTR+40 ; : 
$99: tf 0000" SAR, RUS AMSG CIE : ; 
0060 8F 00 of we eet Moves #0; (SP)7 #0, #96, SRMS_PTR ; 0689 
a 2 ee ner : : 
Sa race BERR RHEE Mg rt 7 2 
ef : 2 
0058 8F 00 6E oo 09 2 O14 moves FOL (SPD mas. s SRMS_ PTR : on | 
ge: TAP poy aera tn aoe | 
0044 8F 00 6E 6 3 O17 moves | #0 . *tgp) , #68, SRMS_PTR : 0695 
0000" CF O16E ; 
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soci GAGE WM}, ShesadzittiPals2 


#8, SYSSGETDVI 
AED I ang ; 


AED“ WI 10SB- wehtbet- STATUS 
VIC CE_DEPEND+3,  AED_L_PAGESIZE 


32 L_PAGEWIDTH 


vite. AtYPES #64 
DEVICE_TYPE, #65 
6 


Mmoato°o-—> 
ae ee 
< 


1, AED_L_FLAGS 
#5, DEVICE_DEPEND2+3, 7$ 
eee AED_L_FLAGS 
#6, DEVICE_DEPEND2+3, 8$ 

AED_L Place 

#1, #1, Di ei DEPEND+1, RO 
RO, #4. # FLAGS 
#4, #1, DEVICE Pat pENnSS, RO 
RQ. 43, #1, A 


LAGS 
f a“, DEVICE meee RO 
3. Ab L "ELA AGS; 9 
19$ 
-(SP) 
-(SP) 
-(SP) 
TERM_CHAR 
-(SP 
AED _W_10SB 
AED_W_TERMOUT, -(SP) 
-(SP) 
#i2, 


RO abp e status 
AED L_STATUS, 10$ 
AED“W-10SB, AED at, STATUS 
tae L estat s 10 


ERAT CHAR 


7 
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| 
03 0000" CF BO 108: & D_L_FLAGS, 11$ : 
069 1 e8 pes 3g AED.L_FLAGS g 060 
D 118: BRW 4$ : : 
C 0038C 12$:  CLRO =<(SP) + 0812 ; 
: B CLRQ  =(SP) : ; 
C CLRL ss «= (SP) : : 
0000v cf f 003C PUSHAB AED CTRLCAST : ; 
— 7C 003¢ CLRQ  =(SP) : | ; 
' i F 003C PUS Ac W_10S8 : | ; 
ze 1 F 3¢ CC MOVZWL #297, ~=(SP) : | : 
7 ' cr € 0030 MOVZWL AED_W_TERMIN, (SP) : ; 
E 04 D6 CLRL ish) : ; 
000090006 00 of F D CALLS #12, SYS$QI0W ; : 
cr D DF MOVL RO, AED_L STATUS : ; 
C 0° CF 5 £4 BLBC AED_L_STATUS, 138 + 0813 : 
0000" §§ bobo EF CES OO8FO ROVZUL AED W108. AED | STATUS ost, 
16 0000" CF 3 £1 FS 13$: C BRED L FLAGS. 15$ ; 0817 ; 
1 DOD 003FB 14$: PUSHL #1 F ; 
5 DD 003FD PUSHL #21 : ; 
000000006 00 02 FB OOSFF CALLS #2, SCRSERASE_PAGE ; ; 
DD 06 PUSHL # : ; 
15 DD PUSHL #21 : ; 
000000006 00 02 FB O040A CALLS #2, SCRSSET_CURSOR ; ; 
0000" CF DD 00411 15$:  PUSHL AED_L_STATUS : : 
000000006 00 1 FB 15 CALLS #1, LYBSSIGNAL ; ; 
03 0000° CF 3 1 BBS #3. AED_L_FLAGS, 16$ ; F 
o7o¢ 1 BRW 97§ : ; 
7c8 «31 168: BRW 96$ : ; 
1 dD 817$:  PUSHL #1 + 0820 ; 
1 DD A PUSHL ; ; 
000000006 00 2 FB CALLS #2, SCRSERASE_PAGE : 3 
14 0D PUSHL #20 ; 0821 : 
8 0D PUSHL # 3 3 
000000006 00 2 FB CALLS #2, SCRSSET_SCROLL ; F 
0000° CF € BLBS  AED_L FLAGS; 1 + 0822 F 
0 0000" CF 1 €1 4 BBC #1, AED_L_FLAGS, 19$ ; : 
09 O° CF FO 49 18%:  ®8BS #6, AED-L“FLAGS#2, 198 : 9828 ; 
0000v CF 000" bt Fe Soese CAS, gi. sed. PUTOUTPUT — 
9000: CF 3F 35 19$: PUSHAB AE6_Q_OBJNAM ; 0829 ; 
000000006 00 65 FB CALLS #2, CLISGET_VALUE F 
F8 AD 3 : PUSHAB VERB_DESC + 0834 
0000° fs fF A PUSHAB P 3 
000000006 2 FB CALLS #2, CLISGET VALUE : 
‘8 OA ¢ MOVZWL VERB DESC, R : 0836 
° CMP TA 3 
: 7¢ BLEQU 208 ; 
50 re MOVL #4, RO ; 
50 00 Fe GD FB, AD eb 208:  CMPCS = VERB_DESC, @VERB_DESC+4, #0, RO. P.AAM ; 0835 
a 12 Qo 218 ; 
0000" CF 6 MOV #1, AED_L_OBJTYP : 0838 
59 F8 ge 218: MOV IWL VERB_DESC> RO : 0841 
3 CMPW R 3 
8 BLEQU 226 ; 
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50 03 00 MOVL. #3, RO : | 
50 00 FC oD Fs, AD i 228:  CMPCS VERB_DESC, @VERB_DESC+4, #0, RO, P.AAN + 0840 
m BEQL ; $ : 
AA BRwW % : 
FO, AD sap 238 PUSHAB CMD_DESC + 0845 
F PUSHAB 3 
000000006 2 B4 CALLS © #2, CLISGET_VALUE : 
4 FO AD BB MOV2WL CMD_DESC, R& + 084 
0 34 BF MOVL  84,°R + 084 
9 C CMP ry : 
¢ BLEQU 248 : 
50 C MOVL ~ RO 3 
50 00 ‘6 8D sonal 4 CA 248 CMPCS 4, @CMD_DESC+4, #0, RO, P.AAQ + 0846 
A o3 BNEQ 25$ 3 
9000" CF D BISB2 #4, AED_L_FLAGS+3 : 0851 
' cr 1 DA MOVL #1. AED“L-OBJTYP + 0852 
0 4 DF 25$ MOVL R&R + 0856 
09 9 E CMPW SsaRO : 
E BLEQU 268 : 
50 E MOVL #9, RO : 
50 00 F6 «BD la 4 EA 268 CMPCS R4, @CMD_DESC+4, #0, RO, P.AAR + 0855 
A 3 BNEQ 2 3 
0000" CF 8 F BISB2 #8, AED_L_FLAGS+3 + 0860 
0000° cr 1 FA MOVL #1, AED_L_OBJTYP + 0861 
0 4 FF 27% MOVL RGR + 0865 
06 9 92 C RO, #6 : 
0 BLEQU 288 ; 
50 07 MOVL. #6, RO ; 
50 00 fF6 8D ioe 4 OA 288:  CMPCS R4. @CMD_DESC+4, #0, RO, P.AAS + 0864 
OA 18 BNEQ 29% ; 
9000" CF 1 BISB2 #2, AED_L_FLAGS+3 > 0869 
' ct 1A MOVL #2, AED"L“OBJTYP : 0870 
9 1F 29% MOVL RG. RO + 0874 
0 CMPW RO, : 
BLEQU 308 : 
50 MOVL #3, RO 3 
50 00 fF 8D Sonal 4 A 308 CMPCS R&, aCMD_DESC+4, #0, RO, P.AAT : 0873 
— on pee ee es as 
8000" CF 01 A MOVL #1, AED_C_OBJTYP ; $87 
0000" CF fF 31$:  PUSHAB P.AAU + 0885 
000000006 00 1 43 CALLS #i, ¢ JSPRESENT F 
0000° CF ° re abvL ; * AED_L_OBUTYP : 
0000" CF 32$:  PUSHAB .— > 0886 
000000006 00 1 CALLS #i, CLISPRESENT ; 
0000° CF $ BOVE #2” AED.L_OBJTYP : | 
0000" CF 338:  PUSHAB vei : 0887 | 
000000006 1 CALLS #i, CLISPRESENT ; 
0000" CF § 8 MOVL #3. AED_L_OBJTYP ; 


nepsynT tbesto-t96e g445:25 pare oLiegca2 ve oc7e2. Page 3 


A 
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0000" CF 9F 8 34$:  PUSHAB P.ABA : 0888 : 

000000006 09 1 F : CALLS #i, CLISPRESENT F ; 

0 € BL . : ; 

wend. 0000" CF e 358 PUSHAB ye msanied + 0889 

000000006 F F CALLS #i, CLISPRESENT : : 

£ BL RO. : ; 

0000° CF e000" po 368 pov. #5, AED_L_OBJTYP : : 

000000006 99 i f A CALLS #i, CLISPRESENT : wn : 

0000" CF 0 005Ar 5, OWL i AED_L_OBJTYP ; ew : 

000000006 43 1 Ff 85 CALLS {SPRESENT : 3 

9 E BC BLBC : ’ 

0000" CF 0 0058F MOVL * AED_L_OBJTYP : ; 

0000" CF 9F 005C4 38s PUSHAB 4 + 0895 ; 

; 000000006 &. 0 (8 CALLS #i, C ISPRESENT : ; 
0000" CF 01 0 0 F 0 CF Insy - #0, 0 , AED_B_OPTIONS F : 
F8 AD oF 3 PUSHAB SOURNAL _DESC + 0898 ; 

0000" CF 9F 005D PUSHAB P.ABK : ; 

000000006 00 2 FB 005E CALLS #2, CLISGET_VALUE F : 

9000" CF 0000' cf 9E 005E MOVAB JOURNAL 8 BUFFER. ie QURNAL RAB+40 + 0899 ; 

' CF B O3E MOV GORNAL : : 

00" CF D4 005F CLAL couanaL NDER® + 0901 : 

00" CF 9F OO5F7 39S:  PUSHAB P. : ; 

000000006 r ¢ O6F CALLS #i, ¢ ssenesent : ; 

0000" CF 01 o1 20 F 06 INsy #1, AED_8_OPTIONS : : 
EO AD FF 060C PUSHAB rie _DESC + 0907 ; 

0000' cr OF O60F PUSHAB : : 

000000006 00 2 FB 00613 CALLS MOO LISGET.v : : 

0000' CF 0000' cr i O61A MOVAB es oct t BUFFER. R, RECOVER, RAB+36 ; 9908 ; 

0000" CF A 00 00621 MOVL : 0909 ; 

0000" CF p4 0626 CLRL —- REC COVER R INDE ae : 9911 : 

0000" CF 9F 0062A 40$:  PUSHAB P.ABQ + 0914 F 

000000006 09 gi FB 006 : CALLS ‘i CLISPRESENT : ; 

0000" CF 0 F 06 INSV AED_8_OPTIONS ; ; 
0000" CF 9F PUSHAB > 0915 F 

000000006 00 1 re 064 CALLS #i, ¢ ISPRESENT ; ; 

0000" CF 01 © FO 0064 INSV , AED_B_OPTIONS : : 
0000" CF 9F 0064 PUSHAB . : 0917 ; 

000000006 00 1 Ff 2 CALLS ¢ ISPRESENT : ; 

0000" CF 01 0 F INSV ny tak at reg hsset ; j 
F9IC §=— CD 00080004 f 60 MOVL 50906," A : 3 3 : 

F920 «CD 000° ce 9 : MOVAB AED 906 Arn ARG uy TARGLIST#4 > 0924 ; 

£ ¢ CLRQ (SP) : 0928 ; 

7E p 7 CLRL =tSp) : ; 

FOIC §«6CD OOF 0067 PUSHAB ATR_ARGLIST ; ; 

000° CF 9F 00678 PUSHAB AED~Q_OBJNAM ; ; 

re BOOB EF TE SSSR AS Ol, ccs : : 

000090006 9 o7 F CALLS” AP, “SYSScHAN BE Act : 

000° CF 0 D ¢ MOVL RO. AED rhrs STATO : ; 

7 9000" CF EB 006 BLBS  AEO_L_STATUS, 45$ : 0929 ; 

00000988 = BF ' CF D1 00696 CMPL  AEDTL“ST ATUS. #2488 : 0932 ; 


DSINIT 4.7 -1 243: AX-11 Bliss-32 v4 40-742 Pp 7 
rireeit 12-808=4 382 $9:93:53 ACLEDT. SRCJAEDINIT.B32;1 a (3 
1 6SF BNEQ 43$ 3 
16 0000" CF Ff Wy Be a, AED_L_FLAGS, 41$ + 0933 
DD 006A PUSHL #21 : 
000000006 00 FB bag CALLS #2, SCRSERASE_PAGE : 
DO 0068 PUSHL # ; 
0D 684 Pus #21 : 
000000006 00 FB 00686 CALLS @ atctie CURSOR ; 
000000006 BF oD SBD 41$: —- PUS #AED JLOCKED ; 
000090006 00 | Fe 6C CALL He SIGNAL : 
1 0’ CF BCA BBC ye L_FLAGS 42s ; 
i ea a a 
000000006 be F DA CALLS sprsse f_CURSOR : 
00000000" &F p E} 428 iste ached OBJLOCKEDS7> : 
00000000" 8F 0000" CF 03 6 ED E9 CRPZV i, #3, AED_L_WORSTERR, #<AED$_OBJLOCKEDE7> : 
0000" CF 000000006 8F 06 F6 MOVL §$ #AEDS_OBJLOCKED, AED_L_WORSTERR : 
4 1 bFF BRB 48s 3 0932 
03 0000" CF 03 ( 143$: BBS #3, AED_L_FLAGS, 44$ + 0934 
FD 707 BRW 15$ : 
FCEE 1 OO70A 44$: BRW 14$ : 
18 00 6 ae i C At 45$:  MOVCS #0, (SP), #0, #24, ATR_ARGLIST + 0937 
50 0000" CF pO 0071 MOVL Q OBJNAM+4, RO + 0946 
0000" gf $f } 71A MOVL a asec FAB+44 3 
2 0000" CF 3¢ O071F MOVZWL AED_Q_OBJNAM, R2 + 0947 
01 0000° CF 01 00724 CMPL  AED“L“OBJTYP, #1 + 0943 
63 13 9 BEQL ©: 46$ ; 
OOgA i B BRW 55$ ; 
0000" CF 2 90 46$:  MOVB  R2, OBJECT_FAB+S2 + 0947 
0000° CF 9F PUSHAB OBJECT FAB + 0948 
000000006 99 1 Fe CALLS #1, SYSSOPEN : 
} 0 5 E BLES RO. : 
E 000° CF 7D 00741 MOVQ OBJECT_FAB+8, -(SP) + 0951 
000° cr 9F 00746 PUSHAB OBJ TF ; 
0115109A 8F DD OO74A PUSHL  #18157722 : 
0000v ¢ 04 FB 47$: CALLS #4, AED_FILERROR ; 
o5cD 31 48$:  BRW 10$$ 3 0953 
0000° CF 000" CF 49$:  MOVZBW OBJECT NAM+3, AED_0_OBJNAM : 095 
9000" CF 900° CF D F MOVL  OBJECT“NAM+4. AED~Q"OBJNAM+4 : 095 
CF 00' cf 8 66 MOVW Poe FAB+ tie AED § OBJ CHAN : 38 
24h CD 000A 08 F 3 D MOVL 72, ATR GLIST 3 889 
F920 «CD AE 9E 5 MOV E HEADER, Ang _ARGLIST+#4 + 0964 
7E D4 0077C CLRL a3 : 0968 
F9IC +4 fF 7 PUSHAB ATR ARGLIST 3 
 . CLRQ = = (SP) : 
7E ge CLRQ = =( SP) : 
7E 7C CLROQ - 3 
0000° CF OF SHAB AED_W_I0SB ; 
2 po C PUSHL : 
7E 0000° cr c MOVZWL AED W_OBJCHAN, -(SP) F 
E D4 CLRL Pp)” ; 
a me Saree haut al : 
C 0000' CF E Al BLBC = AED_L_STATUS, Ys + 0969 


A 
\ 
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0000" CF 9000" CF 7A HOV ZWL AED_W Lose. ght t. STATUS : : 
F ; ? BLB apd ast 4 3 097 ; 
16 0000" CF q 18 508: ee 4 akeD " PAGS. 51$ ; 9378 : 
DD 007BA PUSH, = 1 F : 
000000006 00 FB 18 CALL #2, SCRSERASE_PAGE : ; 
DD O07¢ PUSH #8. F ; 
000000006 00 g FB OO7C CALLS #2, SCRSSET_CURSOR : ; 
E D ce 51$ CLAL (§p) : : 
9000: CF BD 7 PUSHL aed _L STATUS : ; 
' CF OF 0704 PUSHAB AED"G-OBJNAM : ; 
1 DD 00708 PUSHL # F ; 
cooogonng op °151%82 : HE ee et ; : 
11 i ¢ : fi reO BBC AeD at oft Ass 538 : $ 
Oe Se Ee es Rad: «a hes 8 pr : : 
000000006 00 rm: £8 Ort? ‘ CALLS Ht ecu CURSOR F : 
55 A o1 95 EF 0801 58; EXtZv #3, #1, a ee f0 ; 0976 : 
80 00 2C¢ 00 OF MOVCS * ts)" meooks kt ATR_ARGLIST + 0977 : 
Fone E11 08! BRB : 0943 : 
0000° CF $5 90 OOBI8 55S: OVE OBJECT FAB+52 ; 0982 : 
02 0000' cr D1 0 1p CPL is _L_OBJTYP, #2 ; 098 ; 
50 $2 0000" CF cf 0824 ADDL3 ci QOBINAMS4, R2, RO ; 0984 : 
A FF v4 7 bs A Ha fROF, : : 
0000" CF $5 S08 5 DECB OBJECT. FAB+S2 : 9985 : 
0000" CF 9F 00834 56$: § PUSHAB OBJEC CT"FAB : 0987 ; 
000000006 09 o} Fe 08 CALLS a, SYSSPARSE : : 
7E 000° CF 5 OB¢ va OBJECT _FAB+8, -(SP) : 0990 : 
000° cr 9F 0084 PUSHAB OBJECT~FAB : ; 
000000006 ar if 0848 PUSHL #AEDS_SYNTAX : : 
0000" CF 000° CF 0 OBe4 57$:  MOVB  OBJECT_NAM+11, OBJECT_NAM+3 > 0994 ; 
sepa, 2590" cE Be asee OORt AED_W_ OB CHAN" prvirocen atetse 8396 
48 ' CF 61 E1 58$: BBC ‘i “AED_B OPTIONS, 61$ + 1001 ; 
0000" CF AD 0 : MOVL RECOVER” -Beses +4, RECOVER FABS44 ; 1004 ; 
' CF FO AD ; MOVE  §RECOVERTDESC, RECOVER_FAB+52 + 1005 : 
000000006 00 — O4 4 5 CALLS pet eo — : 
0? 0 8 4 BLBS = RO. 353 : : 
E 0000 cr 2p nova RECOVER, FAB+8, =-(SP) + 1009 3 
0000"° CF 9F 59$:  PUSHAB RECOVER RAB > 1013 ; 
000000006 09 61 FB 31 CALLS SCONNECT ; : 
7E 000° CF 5 i MOVO RECOVER_RAB+B, -(SP) : 1016 F 
2090 F 9F OOBAO 60$:  PUSHAB RECOVER@FAB ; ; 

000000006 bf DD OOBA4 PUSHL #AED$_RECOPENIN ; 

0000v CF 4 FB AA CALLS #4, AED_FILERROR : 
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#2, AED_B_OPTION 
Ot he 


JOURNAL-DESC, JOURNAL_FAB+52 
#1, SYSSCREATE 

JOURNAL FAB+B, -(SP) 

; RNAL_RAB 

He YSSCONNECT 


JOURNAL_RAB+8, -(SP) 


g * $ 
4 : AED -GE T ts 
TATUS rae 
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#368438456. AED_L_STATUS, RO 


AED_Q_LINETABLE, AED_Q_LINETABLE 
AED LINETABLE, AED~Q-LINETABLE+4 
#0,~(SP), #0, #64, ACL“FIB 


#0, (SP), #0, #8, ACL_FIB_DESC 
#64, ACL_FIB_DESC 


L.FIB, ACL FIB_DESC+4 
LBUFFER 


Vv 
VM’STATUS, 66$ 
#07 (SP), #0, #512, @AED_A_ACLBUFFER 


VM_STATUS, AED_L_ STATUS 


AED_L_STATUS, 8hs 
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ACL CONTEXT 
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ACLEOT.SRCJAEDINIT.832;1 
‘ #2528 
105$ 
¢ » AED_L_FLAGS, 71$ 


#21 
« SCRSERASE _PAGE 


agi 
#2, SCRSSET_CURSOR 
-(§p) 


AED_L_STATUS 
D~G"0BJNAM 


18157746 
5, LIBSSIGNAL 
#3, AED_L_FLAGS, 72$ 


#0, #3, AED_L_WORSTERR, #2 


#8157746, AED_L_WORSTERR 
AED A_ACLBUFFER, ACE_POINTER 
#512, AED A.ACLBUFFER, RO 
ACE POINTER: R 


68$ 
(ACE _POINTER) 
76$ 


ACE _NEWADDR 
(ACE_ POINTER), 4(SP) 


ace LIBSGET_VM 

RO, VM_STATOS 

VM’ STATUS, 78$ 

(ATE_POINTER), RO 

#0, TSP), #0, RO, @ACE_NEWADDR 


VM_STATUS, AED_L_STATUS 
AED_L_STATUS, 


(ACE_POINTER), RO 
RO, TACE POINTER), @ACE_NEWADDR 
ACE_POINTER, ACE _DESC+4 
(ACE_POINTER), ACE_DESC 

ACE TEXT, ACE TEXT ~DESC+4 
orels 


758 
ACE_TERT_DESC 


FORMAT ACL 


A 
“DESC, ACE_TEXT_SIZE 
> FIRST_CHAR 


§ | 
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3b 99:23:38 «YARED rsa Sagbintt esos 


#0, ACE_TEXT_SIZE, (FIRST_CHAR) 


ier FIRSTLINE 
i$ 


LAST_CHAR 


S 


cVDeer 


CHAR LAST CHAR, SEGMENT_SIZE 
XT Lin 

i] 
§p) 
BSGET_VM 

VM_STAT 5 

VM/STATUS, 83$ 
#0; (SP), #0, R2, @NEW_TEXT_LINE 


VM_STATUS, AED_L_STATUS 
AED L_STATUS, 85s 
it 


E 
) 
( 
I 


DBRBVFDBvysZ"OOwWD 
zm 
cr~ eno 


ss Oe ~~ 
wv 


“AED_L_FLAGS, 84$ 
4 
#2, SCRSERASE_PAGE 


#21 

+5 SCRSSET_CURSOR 
AFL STATUS 

+3. i wares 85$ 
AEO_B_COLOMN, -(SP) 
AED_B LINE, =(SP) 
#2, “SCRSSET_CURSOR 
AED_L STATUS, RO 

R98 
109$ 


i, 3. ALS _U WORSTERR, R1 


T_CHAR), 20(R8) 
LE+4 


8 
ACE_TEXT_SIZE 


102$ 
NEW_TEXT_LINE 


A 
AEDSINIT 15-Sep- 3: AX-11 Bliss-32 V4.0-742 
yO42000 14- =Sen- 138 7 43: 33 ACLEDT. SRC JAEDINIT.B32;1 
52 146 Ab YE OOB9A MOVAB 2 (R6) 
eM mw ERR Rate Hint 
000000006 FB OOBA CALLS #, L1BSGET vM 
DO OOBAC MOVL MSTATOS 
0 : BAF LBC ih “statis. 2$ 
52 00 6 . C BB MOVCS (SP), #0, R2, Q@NEW_TEXT_LINE 
0000" $F sono fF BO ROBEY 928: Mowe wmesraTuGs nen 4 grat 
16 0000° CF 65 E1 00BC3 93$: BBC ‘, “AED_L_FLAGS, 95$ 
91 DD OB¢9 94$:  PUSHL 
5 DD 008 PUSHL fat 
000000006 00 02 FB 00BCD CALLS #2, SCRSERASE_PAGE 
01 DD 00BD4 PUSHL #1 
15 DD 0806 PUSHL 4 
000000006 00 02 FB O0BD CALLS #2, SCRSSET_CURSOR 
0000" CF DD OOBDF 95$:  PUSHL AED_L_STATUS 
000000006 00 01 FB O0BE3 CALLS #1, LIBSSIGNAL 
11 0000' ¢ 03 Fi OOBEA BBC #3, AED_L_FLAGS, 97$ 
7E 0000" CF 9A OOBFO 96$ MOVZBL AED_ (0 LOMN, = - 
7E 0000" CF 9A OOBFS MOVZBL AED_8 P) 
000000006 99 02 FB OOBFA CALLS # “Beh ates CURSOR 
0 0000" CF DO 00C01 97$:  MOVL AED_L_STATUS, 
07 50 93 00C06 BITB RO “47 
131 00¢09 BEQL 
51 50 03 00 €F 00COB EXTZV ty #3, R1 
51 0000" CF 03 00 €ED 00C10 CMPZ7V #0. #3. nr _L_WORSTERR, R1 
05 18 00C17 BGEO 
0000" CF 50 p60 00C19 98$:  MOVL RO, AED_L_WORSTERR 
0104 31 OOCIE 99$:  BRW 109s 
58 1C AE DO 00C21 100$: MOVL = NEW_TEXT_LINE, R8 
08 AB 56 BO 00C25 MOVW ACE TEXT nice 8 (RB) 
OC Ag 18 AE b0 99¢ 9 MOVL ACEN Bor, 12¢ ofan 
146 AB 6A 56 28 00C § MOVC3 ACE TE Size. (FIRST_CHAR), 20(R8) 
0000" oF 6s OF 00¢ INSQUE (RSJ, xAED CINETABLE+4 
0000" CF D5 00C38 TSTL AED_L (_PIRSTLINE 
06 12 00C3Cc BNEG 10:8 ~ 
0000" CF 1c AE DO 99¢ E MOVL NEW. TEXT_LINE, AED_L_FIRSTLINE 
0000" (CF 1C AE DO 00C44 101$: MOVE “TEXT“LINE, AED-L-LASTLINE 
51 0000" CF 9 OC4A 102$: VL atd.t FIRSTLINE, RT 
OA Al 01 88 OOC4F BISB2 #1,710(R1) 
27 03 a9 02 0 0C53 5 #2. 3(ACE POINTER), 103$ 
50 01 AD 9A 0c38 MOVZBL 1(ACE_POINTER), RO 
01 50 9% 00C5C PB RO aT 
22 13 OOC5F BEQL 1048 
02 0 91 00C61 CMPB RO #2 
1p 13 O0¢b4 BEQL «=s«éa10S 
03 50 91 00666 CMPB sO, #3 
18 13 00C69 BEQL «=s-s«dW 0d 
04 50 91 OC6B CMPB =soRO, #4 
13 13 00C6 BEQL «=s-:«104$ 
05 50 91 00¢7 CMPBSséRO, #5 
3 13 00C7 BEQL «=s«d10$ 
06 50 91 00C7 CMPB sO, #6 
09 13 0078 BEQL ©: 104s 
09 0 91 OOC7A CMPB =SséRO, #9 


VViviws wi 


a 
AEDSINIT 1-5 Sep-1984 AX-11 =32 V4.0-742 Pa 3 
vee 14-Sep- et} 7 73 $3; $3 ACLED pres neha AEDINIT.832;1 nt AY 
4 13 00C7D BEQL 1048 ; 
OA Al % 88 00C7F 1038: B1SB2 yes 0(R1) > 1168. 
50 0000 cr CB3 104$: VL AED. LASTLINE, RO + 1169 
OA A : C BISB2 # (BS) : | 
2 ‘ A 00CBC MOVZBL (ACE_POINTER), RO + 1170 
9 0 OOC8F ADDL R0 ACE_POINTER : | 
F093 31 «00C Z BRW 75§ > 1095 | 
9900" cr F 00C95 105$: PUSHAB AED_A_ACLBUFFER + 1173 
04 AE 0 8F %3¢ 00C99 MOVZWL #512,74(SP) : | 
04 AE F OOC9F PUSHAB 4(SP5 : | 
000000006 02 FB Cag CALLS #2, LIBSFREE_V : | 
9000" CF i: OCA MOVAB AED_G bP INETABLE, R RO + 1177 
000 CF p ac85 CPL iges “LINETABLE, R : 
58 0000" CF 85 gi OCB BBC AED_L_FLAGS, 108$ + 1178 
18 OA 0000" CF : 00CBB MOVAB AEb_0 LIN NETABLE ACE _NEWADDR + 1181 
5 18 AE OD doce MOVL ACE “NEWA + 1184 
5 0000" CF 9A 00CC5 MOVZBL AED-B_LINE, R3 + 1187 
18 AE 62 DO OOCCA 106$: MOVL  (R23,~ACE_NEWADDR + 1184 
5 18 AE 00 OOCCE MOVL ACE_NEWADBR, R + 1185 
0000° CF 08 Ag BO b0¢b3 MOVW  8(R2), AED Re OUTLINE : 
0000" CF 14 A2 9E 00CD MOVAB 20(R2 5 AEB_G_OUTLINE+4 + 1186) 
01 DD OOCDE PUSHL #1 + 1187 
3 DD OOCEO PUSHL R3 F 
00006 CF 02 FB OocEe CALLS #2, AED_SET gfURSOR ; 
0000" CF 9F OOCE PUSHAB AED_Q OOTLI + 1188 
0000v CF 01 FB OOCEB CALLS #1, AED i}. ae F 
0000" CF 96 OOCFO NCB. AED_B_LINE : 1189 
53 0000" «CF 9A OOCFS MOVZBL AEDTB“LINE, R3 : 1191, 
14 53 91 OOCF9 PB saR3, “#20 : 
OA 1A OOCFC BGTRU 107$ ; 
50 0000" CF 9E OOcrE MOVAB AED Q_LINETABLE, RO : 1192 
50 62 D1 0000 CMPL (R23, "RO : 
C2 if 00006 BNEQ  106$ : 
0000" CF 01 90 00008 1078: MOVB #1, AED_B_LINE + 1193 
01 DD 00D0D PUSHL #1 : 1194 
01 DD SOD0F PUSHL #1 F 
00006 CF 02 FB 00011 CALLS #2, AED_SET_CURSOR ; 
00006 CF 00 FB 00D16 108$: CALLS #0. AED"PROTESSACL : 1200 
00006 CF 00 FB 00D1B CALLS 40, AED~ FLUSH KEY + 1205 
00006 CF 00 FB 00020 CALL AED rfheA 3 1206 
50 0000' CF 10000000 &F c9 90025 109$: BISL 42686 5256, AED _L_WORSTERR, RO ; 1208 
0000 $0 110$:  .WORD Save nothing ; 0600 
7E D4 00D CLRL = = (SP) : 
5E DD 0D PUSHL SP : 
7E 04 AC 7D 00D - MOVa 4 (AP), -(SP) : 
0000v CF 03 FB OOD 5A CALLS #3, AED_HANDLER : 
04 00D3F RET ; 


3; Routine Size: 3392 bytes, Routine Base: S$CODE$ + 0000 
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GLOBAL ROUTINE AED_FILERROR (ERROR_CODE, FAB, PRI_LSTATUS, SEC_STATUS) : NOVALUE = 


+ 
e 


FUNCTIONAL DESCRIPTION: 


sale routine is the common error reporting routine for the ACL 


CALLING SEQUENCE: 
AED_ERROR (ARG1, ARG2, ARG3, ARG4) 
INPUT PARAMETERS: 
ARG1: the facility error code 
anee: the address of the related FAB for RMS errors 
ARGS: the primary RMS error code 
ARG4: the secondary RMS error code 


IMPLICIT INPUTS: 
none 

OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 
none 

ROUTINE VALUE: 


none 
SIDE EFFECTS: 
none 


ICP IPI IAAI CRPPOPIPPPINDPIPINIPIDINIAR) 8 a a ss tt tt tt tt tt tt tt tt tt 
—_ 


BEGIN 
MAP 
FAB : REF SBBLOCK; ! Address of the FAB 
BIND 
= .FABCFABSL_NAM] : SBBLOCK; ! Address of the NAM block 
LOCAL 
FILE_NAME : SBBLOCK CDSCSC_S_BLN); ! File name storage 
CHSFILL (0, DSCSC_S_BLN, FILE_NAME); 
UF i MAACNAMSB_RSLJ NEG 6 ! Use resultant name if present 
BEGIN 
FILE_NAMECDSCSA_POINTER) = .NAMCNAMSL_RSA); 
4S ies DSCSWILENGTH] = .NAMCNAMSB_RSLJ; 
3434 IF .NAMCNAMS$B_ESL] NEQ 0 ! Use expanded name if no resultant 
BEGIN 
FILE_NAMECDSCSA_POINTER] = .NAMCNAMSL_ESAJ; 
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4-Sep-19 ACLEDT.SRCJAEDINIT.832;1 


; , ' F ILE NAMECDSCSW_LENGTH] = .NAMCNAMSB_ESLJ; 
; i ; ELSE cin 
s : 127 FILE WAE EDSCSA POINTERS = ,FABCFABSL_FNAJ; ! Use Original if no expanded 
+ Bde 127 FILE-NAMECDSCSW-LENGTH) = .FABLFABSB_FNSJ; 
5 5 ; ee END; 
3 : ; i f SIGNAL (.ERROR_CODE, 1, FILE_NAME, .PRI_STATUS, .SEC_STATUS); 
: B29 , RETURN; 
; H 1 1280 END; ! End of routine AED_FILERROR 
03FC 00000 .ENTRY AED_FILERROR, Save R2,R3,R4,R5,R6,R7,RB,RP 
59 000000006 00 9€ Boose MOVAB SCRSSET CURSOR, R9 
58 0000° CF 9 90009 MOV AED FLAGS, RB 
3E 08 ¢ 0005 SUBL2 #8, SP 
§ 98 AC DO 0001 MOVL FAB, R7 
56 A? DO 00015 VL. 40(R7), R6 
08 00 6E 00 2c 9019 MOVCS #0, (SP), #0, #8, FILE_NAME 
03 Ab 95 OO1F TSTB =: 3 (RO) 
0B 13 00022 BEQL «6s: 1$ 
04 AE 04 Ab po 0024 MOVL  4(R6), FILE_NAME+4 
6E 03 A 000 MOVZBW 3(R6), FILE-NAME 
19 11 0002D BRB $ 
0B AG 93 O2F 1$ TSTB =—_: 11 (RO) 
0B 1 2 BEQL ¢s 
04 AE oc A6 D0 MOVL (RG), FILE_NAME+4 
6E ag 78 039 MOV ZBM }1CR6), FILENAME 
04 AE 2C A7 00 0003F 2s: MOVL  44(R7), FILE_NAME+4 
6 4 A? 9B 00044 MOV 7BW 5¢(R7) FILE~NAME 
12 6 03 €1 00048 38: C #3, AED_L_FLAGS, 48 
01 OD HL ofl 
15 DD 0004 PUSHL #21 
000000006 00 02 FB CALLS #2, SCRSERASE_PAGE 
01 oD PUSHL # 
13 DD 9 PUSHL ag! 
69 02 FB 8 CALLS #2, SCRSSET_CURSOR 
7E Oc ac 72D 4$: MOVG PR{_STATUS,~-(SP) 
08 AE OF PUSHAB FILE_NAME 
01 0D PUSHL 
04 AC DD PUSHL ERROR_CODE 
000000006 00 0 Fe 06A CALLS a3. LTBSSIGNAL 
0B 6 f BBC #3. AED _L FLAGS, 5$ 
7E 30 AB OA MOVZBL AEO_B_COLOMN, -(SP) 
7 4 AB 9A MOVZBL ADB LINE, =(SP) 
6 02 F CALLS #2, SCR SEf CURSOR 
7 04 AC ? 5$: 118 RROR_CODE,“# 
50 04 Ac 03 00 EF EXTZ2v #0, #3, ERROR_CODE, RO 


i 


se 


50 


; Routine Size: 


16 «AB 


154 bytes, 


146 AB 


Routine Base: 
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ED ppoes CMPZV «#0, #3, AED_L_WORSTERR, RO 
05 18 a4 BGEQ 6$ 
06 AC ? 0094 MOVL ERROR_CODE, AED_L_WORSTERR 
00099 6$: RET 


SCODES + 0040 


VanSep-i9ee 11:52:55 EACLepresaeSaen 


ROUTINE AED_CTRLCAST : NOVALUE = 

se 

FUNCTIONAL DESCRIPTION: 

This routine is called when the yset types a control-C. It resets 
the necessar —— characteristics, unwinds all the way, and then 
returns. This is necessary to support a callable ACL editor. 


CALLING SEQUENCE: 
AED_CNTRLCAST () 


INPUT PARAMETERS: 
. none 
IMPLICIT INPUTS: 
none 


OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 
none 


ROUTINE VALUE: 
none 


oo 


SIDE EFFECTS: 
Th 


i 
i 
i 
i 
i 
i 
i 
i 
¢ 
: 
‘ 
' 
i 
: e stack is unwound, and control is returned to the caller of the 
' 

te 


ot et tt at a 4 a 4 8 2 dd bs bb ss 2 2 ~~ bs es os — 2) 2 4 
SPL II III II a nk rn i i a ek a td od od od 


10 ACL editor. 
1 
13 
14 BEGIN 
16 2 AED_B OPTIONSCAED V_KEEPUNL] = 1; ' Don't delete journal file 
v SIGNAC (AEDS$_CONTROL_C); ! Will never return 
19 RETURN; 
$ END; ! End of routine AED_CTRLCAST 
001C 00000 AED_CTRLCAST: 
eWORD Save R2,R3,R4 
4 900000006 ar 00 000 MOVL §§#AED$ CONTROL_C, R4 
00000006 E MOVAB SCRSSET CURSOR, R3 
0000' CF 3 19 ROVAB D_L_FCAGS, Re 
06 =A : 1 BISB2 #8,~AED_B_OPTIONS 
12 & E1 00019 BBC #3, AEDIL“FLAGS, 18% 
1 DD 0001D PUSHL #1 
DD O001F PUSHL #21 
000000006 00 6 B 4 CALLS #2, SCRSERASE_PAGE 
DD 8 PUSHL @ 


v4 
INIT 


0-74 
8 $2, 


: 1281 


Sete Sete te Oe eee 
ee 
WGN 
— oe 
NO 


acre NIT 


14 = =A2 


; Routine Size: 96 bytes, 


Routine Base: 


SCODES + ODDA 


£91944 99:33:38 | Parr Obhe sabe hte aso 
a, SCRSSET_CURSOR 
#1, LIBSSIGNAL : 
i S 
Me, fe] 
3 #3, AED_L_MORSTERR, #<AEDS_CONTROL_CE7> ; 
, AED_L_WORSTERR 


: 1321 


So Se Se Oe Se Se Se Se Se Se Se Se Se Fe Se Ge Fe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Ge Se Se Se Se Se Ge Ge FH Se Se Ge Se Se ee 


8 | 
voL-000. 1fogeontgge $7:53:38 YARED SAE Saebinttceses mgs 
ROUTINE AED_HANDLER (SIGNAL_VEC, MECHANISM_VEC) = 
e4 
' 


FUNCTIONAL DESCRIPTION: 


This is the main exception handler for the ACL : itor. The 
rpose it serves is t9 Hb roa the session Log ( any) and reset 
he terminal characteristics before resignaling the error. 


CALLING SEQUENCE : 
AED_HANDLER (ARG1, ARG2) 


INPUT PARAMETERS: 
ARG1: address of the signal array 
ARG2: address of the mechanism array 


IMPLICIT INPUTS: 
OWN 


i 
i 
i 
i 
' 
' 
1 
i 
i 
' 
' 
i 
i 
i 
: storage 
i 
! 
i 
4 
‘ 
: 
$ 
: 
‘ 
' 
i 
' 
' 


OONAMNE WT 


wu 


OUTPUT PARAMETERS: 
none 


IMPLICIT OUTPUTS: 
none 

ROUTINE VALUE: 
non 


SIDE EFFECTS: 
none 


891 
89% 
B99 
901 
308 
90 

904 
905 
309 
908 
909 


BEGIN 


PUP ADIASIA MI 


MEW 0 OONOVUE WN" O OONOUE WO 0@ 


A 
$s 
A 
A 
4 
'] 
A 
4 
A 
A 
a 
A 
A 
4 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
a 
A 
A 
4 
i] 
4 
4 
4 
A 
4 
4 
3; 
4 
4 
4 
4 
j 
4 
j 
/ 
/ 
{ 
| 
| 
{ 
\ 
{ 
{ 
| 
i 
i 
| 
| 


ee ee ee ee a a a ee ae ee a ee a a a a el a a a a el el el el el lh el el el el 


PII EE BB ANNU a a a a ed a el eh el eld 
aoe 
xz 
2 
ee 
>o uw 
mm 


910 

911 

a SIGNAL_VEC : REF SBBLOCK, ! The signal vector 
$14 MECHANTSM_VEC : REF S$BBLOCK; ! The mechanism vector 
915 ' If the severity is FATAL or this is a contegtat abort, do the needed 
aig ' cleanup and reset the terminal characteristics. 

38 SBBLOCKCSIGNAL_VECCCHFSL 316 NAME], STSSV_SEVERITY] EQL STSSK_SEVERE 
919 GNAL_VECCCHFSL_SIG_NAME) EGL AED$_CONTROL_C 

921 GIN 

o § D_FLUSHKEY (); 

y AED_CLEANUP (); 

3 4 LF STGNAL_VECECHFSL_S1G_NAME EQL AEDS$_CONTROL_C 

y EGIN 

9 $ SOUND 0; 

y ; RETURN 1; 

g END; 

930 END; 

931 


vousb00 1Eogeont9Re 7:33:38 «= EAE’ Saco inti a soe) 
; 38 1308 RETURN SS$_RESIGNAL; 
; 1 END; ! End of routine AED_HANDLER 


eEXTRN SYSSUNWIND 


000C 00000 AED_HANDLER: 
WORD Save 


: 000000906 af 00 0 HOVL satSs"s ZontRon ¢. R3 
04 04 A2 F : cMPzv 36° Gna Y at He ry 
53 06 A i 1 CMPL =«-« &((R2),,_ RB 
1D 1 BNE $ 
90006 cr 0 Fe 1B 1$: CALLS #0. Ab-tt FLUSHKEY 
gf 04 tS 4 eche) . 
9p 12 BNEO 
000000006 e 8 02D eKes f PE YSSUNWIND 
98 8 5 80 L rs RO 
be 0037 RET 
50 0918 8F 3C 00038 2%: MOVZWL #2328, RO 
04 00030 RET 


; Routine Size: 62 bytes, Routine Base: SCODES + OE3SA 


ee ” . 


JERI ESE MAIER nae, 


END; ! End of routine AED_PUTOUTPUT 


: 3 } 1 GLOBAL ROUTINE AED_PUTOUTPUT (BUFFER_DESC) = 

: : - | 

3 . i i FUNCTIONAL DESCRIPTION: | 

: 4 1 1: This routine outputs the buffer pointed to by the specified descriptor 

: ot } : : to the terminal. No assumption made as to the content of the buffer. | 

5 945 1391 1 § CALLING SEQUENCE: 

i 946 1398 1 | AED_PUTOUTPUT (ARG1) 

; 308 1394 1 | INPUT PARAMETERS: 

: Ben ; 95 : : ARG1: address of the buffer descriptor 

; 331 1 3 1! IMPLICIT INPUTS: 

: 326 : eS : : AED_W_TERMOUT: channel to use for terminal 1/0 

: 954 1400 1 | OUTPUT PARAMETERS: 

3 B22 et : none 

; 385 1208 1! IMPLICIT OUTPUTS: 

; 958 14 1! none 

; 959 1405 1! 

: 960 14 . % metie | VALUE: 

; 961 1407 1! if no errors 

3 208 1008 1! eK. an error code 

; 96 14 1! 

3 964 1410 1 ! SIDE ePreCTss 

; 965 1411 1! he output display is updated. 

3 +e] 1216 1! 

: 9% 141 1 !=- 

; 968 1414 1 

FH 34 1415 BEGIN 

: 970 1238 

; 971 141 MAP 

3 38 1013 BUF FER_DESC : REF SBBLOCK; ' Address of the buffer descr 

: 97% 1420 2 LOCAL 

; 975 1421 LOCAL_10SB8 : VECTOR (4,WORD], ' 1/0 status block 

3 378 1 § LOCAL"STATUS; ' Routine exit status 

: 978 14 4 ! Write the specified buffer to the output device. 

: 980 P 14 6 LOCAL_STATUS = $Q10W (CHAN = .AED W_T 

> 981 P 14 UNC = 10$ ORTTEVELK "br 10$M_CANCTRLO, 

; 98 P 14 3 1OS8 = LOCAL _! 

; 98 P 14 Pl = .BUFFER- DESCLOSCSA_POINTER], 

; ? ¢ 1° , P2 = .BUFFER_DESCCDSC$W_LENGTHJ); 

; 9 14 § IF .LOCAL_STATUS THEN LOCAL_STATUS = .LOCAL_10SB[0); 

3; 9 14 IF NOT .LOCAL_STATUS THEN SIGNAL (.LOCAL_STATUS); 

; 988 1? : RETURN .LOCAL~ STATUS; 

; 14 
| 


voe=000. iSsgeoage $4:43:33  YMECDD OLN sats owe # 


: 


.ENTRY AED_PUTOUTPUT, Save R2,R3,R4 : 
‘ 000099006 00 MOVAB SCRSSET_CURSOR, R4 : 
F MOV ADL FCAGS, R3 : 
E 8 SUBL2 #8, SP : 
© CLRO. 0s = ¢ §p) + 1430 
7E CLRQ = =(SP) : 
50 06 =A MOV BUFFER_DESC, RO : 
E 6 MOVZ2WL (RO), =(SP) : 
06 =A PUSHL 4 (ROS : 
7E CLRQ. 9 =( SP) : 
20 AE PUSHAB LOCAL_10S8 ; 
7E 8F VZBL #112, 7=(SP) ; 
7E 0080 c3 MOV ZUL AED. TERMOUT, =(SP) : 
000000006 99 Q CALLS re, SYS$Q10W : 
VL RO, LOCAL_STATUS ; 
06 2 BLBC — LOCAL_STATUS, + 1432 
§ MOVZWL LOCAL~ 1088. LOCAL. STATUS : 
44 BLBS \ CAL“STATUS, 4$ ~ + 1433 
12 rs 0 1$: BBC , AED_L_FLAGS, 2$ : 
01 PUSHL it : 
15 PUSHL a, : 
000000006 00 02 CALLS #2, SCRSERASE_PAGE : 
0 PUSHL : 
15 PUSHL fat 3 
64 92 CALLS @# SCRSSET CURSOR : 
2$: PUSHL LOCAL ATUS : 
000000006 09 ot CALLS At Tas : 
6 BBC Ag rahe : Lov aks 3$ : 
7E 20 AS 9A MOVZBL Aeb -B.COLOMN, sie : 
7E 24 AS 9A 00069 MOVZBL AED"B-LINE ; 
64 9 FB 0006D CALLS “STRSSET CURSOR F 
07 93 00070 3$: BITS tocae _STATUS, #7 ; 
11 13 0007 BEQL 4 ; 
50 52 03 99 EF 00075 EXTZV #0. at LOCAL_STATUS, RO : 
50 4 =A 03 0 ED O007A CMP ZV AED_L-WORSTERR, RO : 
4 «OA 33 00 a0089 MOVL  LOCAL_STATUS, AED_L_WORSTERR : 
5 5 D 0086 4$: MOVL § LOCALZSTATUS, RO ~ > 1434 
4 00089 RET : 1436 
3; Routine Size: 138 bytes, Routine Base: S$CODE$ + 0E78 
; 991 1437 1 
; 99 1638 1 END 
: 99 1439 0 ELUDOM 


; PSECT SUMMARY 


nepsintt 1Soseo-t0ge 3:43:25 YA1T oLisec32 v4.0-742, rage 43 


Name Bytes Attributes 
AED_ COMMON 13 4 NOVEC, WRT, RD -NOEXE .NOSHR, LCL, REL, OVR,NOPIC,AL 
1 NOVEC, WRT. RD MOEN gos ht LCL, REL, CON,NOPIC 
SPLITS ; 4 WNOVEC,NOWRT, RD ,NO NOSHR, LCL, REL, CON,NOPIC 
SCODES 3842 NOVEC,NOWRT, RD, EX NE NOSHR LCL, REL, CON,NOPIC 
Library Statistics 
eoeccece Symbols -<------ Pages Processing 
File Total Loaded Percent Mapped Time 
mitt f svt tent L1B.L32;1 18619 204 1 1000 00:01.9 
$255$DUA SYSLIBJT PAMAC.L32;1 42 0 0 14 00:00.2 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:AEDINIT/OBJ=OBJ$:AEDINIT MSRC$:AEDINIT/UPDATE=(ENH$:AEDINIT) 


; Size: ~ coge + 2004 data bytes 
; Run Time: :12. 

; Elapsed Time: 03:34. 

; Lines/CPU Min: 1185 


; Lexemes/CPU-Min: 27967 
; Memor ry Used: 963 pages 
; Compilation Complete 


N03 fHBT13A- SE dik iy : ENT CORPORATION 
VVV3 vax/vMS v4.0 | TARY. 
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